home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
kcl.lha
/
lsp
/
describe.data
< prev
next >
Wrap
Text File
|
1986-07-03
|
4KB
|
225 lines
#(
#!
(lisp::in-package 'user::lisp)
#!
(lisp::export '(lisp::describe lisp::inspect))
#!
(lisp::in-package 'lisp::system)
(lisp::optimize (lisp::safety 2) (lisp::space 3))
0
system::*inspect-level*
system::*inspect-history*
system::*inspect-mode*
system::*old-print-level*
system::*old-print-length*
lisp::*query-io*
#\Newline
#\Return
#\Space
#\Tab
#\n
#\N
#\s
#\S
#\p
#\P
lisp::*print-pretty*
lisp::*print-level*
lisp::*print-length*
#\a
#\A
system::abort-inspect
#\u
#\U
#\e
#\E
:level
:length
#\q
#\Q
system::quit-inspect
"Inspect commands:~%~
n (or N or Newline): inspects the field (recursively).~%~
s (or S): skips the field.~%~
p (or P): pretty-prints the field.~%~
a (or A): aborts the inspection ~
of the rest of the fields.~%~
u (or U) form: updates the field ~
with the value of the form.~%~
e (or E) form: evaluates and prints the form.~%~
q (or Q): quits the inspection.~%~
?: prints this.~%~%"
lisp::multiple-value-bind
(system::update-flag system::new-value)
system::read-inspect-command
lisp::when
system::update-flag
lisp::setf
system::new-value
((lisp::princ "Not updated.") (lisp::terpri))
(system::update-flag system::new-value)
((lisp::princ "Not updated.") (lisp::terpri))
"~V@T"
4
8
"~V@T"
3
"~:@(~S~) - uninterned symbol"
"KEYWORD"
"~:@(~S~) - keyword"
"~:@(~S~) - ~:[internal~;external~] symbol in ~A package"
:external
"value:"
"value:~% ~S"
system::system
system::compiler
"property ~S:"
"property ~:@(~S~):~% ~~S"
"~&-----------------------------------------------------------------------------~%"
"~S - package"
"nicknames: ~S"
"use list: ~S"
"used-by list: ~S"
"shadowing symbols: ~S"
"~S - standard character"
"~S - string character"
"~S - character"
"code: #x~X"
"bits: ~D"
"font: ~D"
"~S - fixnum (32 bits)"
"~S - bignum"
"~S - ratio"
"numerator:"
"denominator:"
"~S - complex"
"real part:"
"imaginary part:"
"~S - short-float"
"exponent: ~D"
"mantissa: ~D"
"~S - long-float"
"exponent: ~D"
"mantissa: ~D"
"~S - function"
"~S - constant"
"~S - cons"
"nthcdr ~D:"
"nth ~D:"
"~S - simple string"
"~S - string"
"dimension: ~D"
"fill pointer: ~D"
"aref ~D:"
"~S - simple vector"
"~S - vector"
"dimension: ~D"
"fill pointer: ~D"
"aref ~D:"
"~S - adjustable aray"
"~S - array"
"rank: ~D"
"dimensions: ~D"
"total size: ~D"
5
1
"~S - ~S"
"The lisp function DESCRIBE."
"The lisp function INSPECT."
lisp::function
""
"[Special form and Macro]"
"[Special form]"
""
"[Macro]"
"~%Args: ~S"
"~%Args: ~S"
"~%Args: ~S"
"~%Args: ~S"
""
""
"[Function]"
"[Macro or Function]"
"KEYWORD"
lisp::variable
""
"[Constant]"
""
"[Special variable]"
""
"[Variable]"
lisp::type
"[Type]"
system::deftype-form
lisp::*package*
"~%Defined as: ~S~%See the doc of DEFTYPE."
"[Type]"
lisp::structure
"[Structure]"
system::defstruct-form
"~%Defined as: ~S~%See the doc of DEFSTRUCT."
"[Structure]"
"[Setf]"
system::setf-update-fn
"~%Defined as: ~S~%See the doc of DEFSETF."
lisp::defsetf
"[Setf]"
system::setf-lambda
"~%Defined as: ~S~%See the doc of DEFSETF."
"[Setf]"
system::setf-method
"~@[~%Defined as: ~S~%See the doc of DEFINE-SETF-METHOD.~]"
lisp::define-setf-method
"[Setf]"
"~&-----------------------------------------------------------------------------~%~53S~24@A~%~A"
"LISP"
"SYSTEM"
"~&-----------------------------------------------------------------------------"
"~&No documentation for ~:@(~S~)."
system::lisp
1024
512
"~&-----------------------------------------------------------------------------"
"~&No documentation for ~S in ~:[any~;~A~] package."
lisp::proclaim
system::inspect-read-line
system::inspect-recursively
system::inspect-print
system::inspect-indent
system::inspect-indent-1
system::inspect-symbol
system::inspect-package
system::inspect-character
system::inspect-number
system::inspect-cons
system::inspect-string
system::inspect-vector
system::inspect-array
system::inspect-object
lisp::describe
lisp::inspect
system::print-doc
system::apropos-doc
lisp::read-preserving-whitespace
lisp::package-shadowing-symbols
lisp::fixnum
lisp::bignum
lisp::ratio
lisp::complex
lisp::short-float
lisp::single-float
lisp::long-float
lisp::double-float
lisp::lambda
lisp::lambda-block
lisp::lambda-closure
lisp::lambda-block-closure
lisp::quote
lisp::array-has-fill-pointer-p
lisp::array-dimensions
lisp::array-total-size
lisp::documentation
system::substringp
)